perm filename NUMX.F4[RK,LCS] blob sn#234295 filedate 1976-09-01 generic text, type T, neo UTF8
00100		DIMENSION A(10)
00200		DATA A/36.,76.,1.,90.,7.,13.,3.,9.,48.,53./
00210		N=10
00300		Z=A(1)
00500		DO 5 J=2,N
00510		TYPE 7,Z
00600	5	IF(Z.LT.A(J))Z=A(J)
00910	7	FORMAT(F)
01000	6	STOP
01100		END